home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2010 April / PCWorld0410.iso / redakcyjne / programy / PSPad editor 4.5.4 build 2356 beta / pspad454inst_en.exe / {app} / Context / Oracle.def < prev    next >
Text File  |  2003-08-30  |  3KB  |  160 lines
  1. ; PSPad clip definition file for SQL ORACLE
  2. ; Created by PSPad   27.11.2002  10:01
  3. ; Author:  Kubo Zdeno
  4. ;
  5. [Macro definition]
  6. %TableName%=@E Table name:,,,,
  7. %Package%=@E Package:,,,,
  8. %Author%=@E Author:,,,,
  9. %Date%=@D Date:,,,,
  10. ;
  11. [IF | IF  END IF]
  12. IF | THEN
  13. END IF;
  14. [IFE | IF ELSE END IF]
  15. IF | THEN
  16.   NULL;
  17. ELSE
  18.   NULL;
  19. END IF;
  20. [IFI | IF ELSIF  END IF]
  21. IF | THEN
  22.   NULL;
  23. ELSIF THEN
  24.   NULL;
  25. ELSIF THEN
  26.   NULL;
  27. ELSIF THEN
  28.   NULL;
  29. ELSE
  30. END IF;
  31. [FOR iCnt | FOR iCnt IN .. LOOP]
  32. FOR iCnt IN |.. LOOP
  33. END LOOP;
  34. [FOR o | FOR o IN (SELECT LOOP]
  35. FOR o| IN  ( SELECT
  36.            )
  37. LOOP
  38.   NULL;
  39. END LOOP;
  40. [FUNCTION | FUNCTION declaration]*CTRL+G
  41. FUNCTION | RETURN;
  42. [FUNCTION |m FUNCTION body]*CTRL+F
  43. FUNCTION |
  44. /**
  45. * @qdesc
  46. * @param
  47. * @return
  48. * @author   %Author%
  49. * @version  1.00
  50. * @date     
  51. * @modified %Date%
  52. */
  53.   RETURN
  54.   IS
  55.   BEGIN
  56.   END;
  57. --------------------------------------------------------------------------------------------
  58. [PROCEDURE | PROCEDURE declaration]*CTRL+R
  59. PROCEDURE |;
  60. [PROCEDURE |m PROCEDURE body]*CTRL+P
  61. PROCEDURE |
  62. /**
  63. * @qdesc
  64. * @param
  65. * @author   %Author%
  66. * @version  1.00
  67. * @date
  68. * @modified %Date%
  69. */
  70.   IS
  71.   BEGIN
  72.   END;
  73. --------------------------------------------------------------------------------------------
  74. [TRIGGER |m TRIGGER]*CTRL+T
  75. CREATE OR REPLACE TRIGGER tg_%TableName% BEFORE DELETE OR INSERT OR UPDATE ON dl.%TableName%
  76. /**
  77. * @qdesc    Table access control %TableName%|
  78. * @author   %Author%
  79. * @version  1.00
  80. * @date
  81. * @modified %Date%
  82. */
  83.   BEGIN
  84.     IF ( NOT dl.pk%TableName%.isWriting() ) THEN
  85.       Raise_application_error( -200__, 'Table access error: %TableName%' );
  86.     END IF;
  87.   END;
  88. /
  89. show errors;
  90. [COMMENT |m COMMENT]*CTRL+ALT+C
  91. /**
  92. * @qdesc    |
  93. * @param
  94. * @param
  95. * @param
  96. * @return
  97. * @author   %Author%
  98. * @version  1.00
  99. * @date
  100. * @modified %Date%
  101. */
  102. [PACKAGE |m PACKAGE]*CTRL+ALT+P
  103. CREATE OR REPLACE PACKAGE pk%Package% IS
  104.  
  105. /**
  106.  * @qdesc
  107.  * @author   %Author%
  108.  * @version  1.00
  109.  * @date
  110.  * @modified %Date%
  111.  */
  112.  
  113.   PROCEDURE Destroy;
  114.     PRAGMA RESTRICT_REFERENCES ( Destroy, WNDS );
  115.  
  116.   PROCEDURE Init;
  117.     PRAGMA RESTRICT_REFERENCES ( Init, WNDS );
  118.  
  119.   PROCEDURE %Package%Insert ();
  120.  
  121.   PROCEDURE %Package%Write ();
  122.  
  123.   PROCEDURE %Package%Delete (
  124.     );
  125.  
  126. END;
  127. /
  128. show errors;
  129. /
  130. --------------------------------------------------------------------------------------------
  131. CREATE OR REPLACE PACKAGE BODY %Package% IS
  132.  
  133.   PROCEDURE Msg( acWhere IN VARCHAR2, acText IN VARCHAR2 ) IS
  134.   BEGIN
  135.     DBMS_OUTPUT.PUT_LINE( acWhere || ': ' || acText );
  136.   END Msg;
  137. --------------------------------------------------------------------------------------------
  138.   PROCEDURE Err( acText IN VARCHAR2 ) IS
  139.   BEGIN
  140.     Msg( 'Err', acText );
  141.     Raise_Application_Error( -200__, acText );
  142.   END Err;
  143. --------------------------------------------------------------------------------------------
  144.   PROCEDURE Destroy
  145.   IS
  146.   BEGIN
  147.     NULL;
  148.  END;
  149. --------------------------------------------------------------------------------------------
  150.   PROCEDURE Init
  151.   IS
  152.   BEGIN
  153.     Msg( 'Init', '' );
  154.     Destroy;
  155.   END;
  156. --------------------------------------------------------------------------------------------
  157. END;
  158. /
  159. SHOW ERRORS
  160. GRANT EXECUTE ON %Package% TO ;